home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / tcp / rxsocket.lha / rxsocket / examples / glogin.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-27  |  1021 b   |  49 lines
  1. /* */
  2.  
  3. /**START libraries*/
  4. if ~show("L","rexxsupport.library") then
  5.     if ~addlib("rexxsupport.library",0,-30) then do
  6.         say "no rexxsupport.library"
  7.         exit
  8.     end
  9. if ~show("L","rxsocket.library") then
  10.     if ~addlib("rxsocket.library",0,-30) then do
  11.         say "no rxsocket.library"
  12.         exit
  13.     end
  14. if ~show("L","rmh.library") then
  15.     if ~addlib("rmh.library",0,-30) then do
  16.         say "no rmh.library"
  17.         exit
  18.     end
  19. /**END libraries**/
  20.  
  21. prg = ProgramName("NOEXT")
  22.  
  23. parm.0.value="";parm.1.value=""
  24. if ~RMH_ReadArgs("LOGIN,PASSWD") then do
  25.     call PrintFault(IoErr(),prg)
  26.     exit
  27. end
  28.  
  29. if GenesisLogin("USER",parm.0.value,parm.1.value) then do
  30.     say "--- Global User ---"
  31.     say "Name:   " user.NAME
  32.     say "Passwd: " user.PASSWD
  33.     say "Uid:    " user.UID
  34.     say "Gid:    " user.GID
  35.     say "Gecos:  " user.GECOS
  36.     say "Dir:    " user.DIR
  37.     say "Shell:  " user.SHELL
  38.     say "Flags:  " user.FLAGS
  39.     say "Maxtime:" user.MAXTIME
  40.     say "-------------------"
  41. end
  42. else call err "no Global User logged in"
  43. exit
  44.  
  45. err: procedure expose prg
  46. parse arg msg
  47.     say prg":" msg
  48.     exit
  49.